home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
HAMRADIO
/
HAMHELP.BQS
/
HAMHELP.BAS
Wrap
BASIC Source File
|
1994-03-05
|
5KB
|
197 lines
10 DIM N(100)
11 KEY OFF:CLS
20 PRINT "HANDY HAM PROGRAMS"
30 PRINT "WILLIS SOFTWARE SYSTEMS 1978"
40 PRINT "5192 CRYSTAL DRIVE CHARLESTON W. VA."
50 PRINT
60 PRINT
70 PRINT " 1 OHMS LAW PROGRAM"
80 PRINT " 2 DESIGN DIPOLE ANTENNA"
90 PRINT " 3 DESIGN QUAD ANTENNA"
100 PRINT " 4 DESIGN BEAM ANTENNA"
110 PRINT " 5 CALCULATE PARALLEL RESISTANCES"
120 PRINT " 6 TO RETURN TO BASIC MONITER"
130 PRINT
140 PRINT
150 INPUT "ENTER NUMBER OF OPTION DESIRED AND PRESS RET KEY ";O
160 IF O=0 THEN 20
170 IF O>6 THEN 20
180 ON O GOTO 210,970,1270,520,1710,190
190 PRINT
200 END
210 REM OHMS LAW
220 PRINT "ENTER E IN VOLTS, 0 IF UNKNOWN":PRINT
230 INPUT ;E : PRINT
240 PRINT "ENTER I IN AMPS, 0 IF UNKNOWN":PRINT
250 INPUT ;I : PRINT
260 PRINT "ENTER R IN OHMS, 0 IF UNKNOWN":PRINT
270 INPUT ;R : PRINT
280 IF E+I+R=0 GOTO 470
290 IF E=0 GOTO 330
300 IF I=0 GOTO 380
310 IF R=0 GOTO 430
320 GOTO 470
330 E=I*R
340 PRINT "E=";E
350 PRINT
360 PRINT
370 GOTO 470
380 I=E/R
390 PRINT "I=";I
400 PRINT
410 PRINT
420 GOTO 470
430 R=E/I
440 PRINT "R=";R
450 PRINT
460 PRINT
470 PRINT "DO YOU WANT TO DO ANOTHER Y OR N "
480 LINE INPUT ;R$
490 IF R$="Y" GOTO 210
500 GOTO 60
510 '
520 REM DESIGN BEAM ANTENNA
530 PRINT " DESIGN VHF"
540 PRINT
550 PRINT " BEAM ANTENNA"
560 PRINT
570 REM
580 REM
590 REM
600 PRINT
610 PRINT " ENTER"
620 PRINT
630 PRINT "FREQUENCY IN MHZ"
640 PRINT
650 PRINT
660 INPUT ;F
670 D=5600/F
680 A=D*.05
690 R1=D+A
700 A1=D*.05
710 D1=D-A1
720 A2=D1*.02
730 D2=D1-A2
740 A3=D2*.02
750 D3=D2-A3
760 S1=492/F*12*2*.208
770 S2=492/F*12*2*.15
780 S3=492/F*12*2*.2
790 S4=492/F*12*2*.256
800 REM
810 PRINT "-----------------";"R1 IN.=";R1
820 PRINT " ! ^ "
830 PRINT " ! ^ ";"S1 IN.=";S1
840 PRINT "-----------------";"D IN.=";D
850 PRINT " ! ^ "
860 PRINT " ! ^ ";"S2 IN.=";S2
870 PRINT "-----------------";"D1 IN.=";D1
880 PRINT " ! ^ "
890 PRINT " ! ^ ";"S3 IN.=";S3
900 PRINT "-----------------";"D2 IN.=";D2
910 PRINT " ! ^ "
920 PRINT " ! ^ ";"S4 IN.=";S4
930 PRINT "-----------------";"D3 IN.=";D3
940 LINE INPUT "DO YOU WANT TO DO ANOTHER YES OR NO";Y$
950 IF Y$="YES" THEN 520
960 GOTO 60
970 REM DESIGN DIPOLE ANTENNA
980 PRINT " DESIGN"
990 PRINT "DIPOLE ANTENNA"
1000 PRINT
1010 PRINT " ENTER"
1020 PRINT "FREQUENCY IN MHZ."
1030 PRINT
1040 PRINT
1050 PRINT
1060 PRINT
1070 PRINT
1080 PRINT
1090 PRINT
1100 PRINT
1110 INPUT ;A
1120 PRINT
1130 L=468/A/2
1140 PRINT "MHZ."
1150 PRINT " DIPOLE"
1160 PRINT "CUT AS FIGURE"
1170 PRINT
1180 PRINT
1190 PRINT "O-------O-------O"
1200 PRINT "!<-'L'->!<-'L'->!"
1210 PRINT
1220 PRINT " L=",L," FT"
1230 PRINT
1240 LINE INPUT "DO YOU WANT TO DO ANOTHER YES OR NO ";Y$
1250 IF Y$="YES" THEN 970
1260 GOTO 60
1270 REM DESIGN QUAD ANTENNA
1280 PRINT "DESIGN QUAD ANTENNA"
1290 PRINT
1300 PRINT "ENTER"
1310 PRINT
1320 PRINT "FREQUENCY IN MHZ."
1330 PRINT
1340 PRINT
1350 PRINT
1360 PRINT
1370 PRINT
1380 PRINT
1390 PRINT
1400 PRINT
1410 INPUT F
1420 PRINT
1430 PRINT
1440 PRINT "ENTER"
1450 PRINT "ELEMENT SPACEING IN WAVE LENGTHS"
1460 INPUT A
1470 S=984/F*A
1480 D=246/F
1490 B=D*.05
1500 R=B+D
1510 T=R*4
1520 L=D*4
1530 PRINT "DREVEN ELEMENT"
1540 PRINT "LENGTH EACH SIDE"
1550 PRINT D," FT. "
1560 PRINT "TOTAL LENGTH"
1570 PRINT L," FT. "
1580 PRINT "REFLECTOR ELEMENT"
1590 PRINT "LENGTH EACH SIDE"
1600 PRINT R," FT. "
1610 PRINT "TOTAL LENGTH"
1620 PRINT T," FT. "
1630 PRINT "ELEMENT SPACEING"
1640 PRINT S," FT. "
1650 PRINT "SPACING"
1660 PRINT "WAVE LENGTH =",A
1670 PRINT "FREQUENCY =",F,"MHZ."
1680 LINE INPUT "DO YOU WANT TO DO ANOTHER YES OR NO ";Y$
1690 IF Y$="YES" THEN 1270
1700 GOTO 60
1710 CLS:PRINT "COMPUTE PARALLEL RESTANCES"
1720 PRINT
1730 PRINT
1740 PRINT " 1 TO 100 RESISTORS "
1750 PRINT
1760 PRINT
1770 PRINT
1780 REM RESISTANCE PARALLEL
1790 FOR X=1 TO 100
1800 PRINT "ENTER R , 0 TO STOP"
1810 INPUT "R= ";N(X)
1820 IF N(X)=0 THEN 1840
1830 NEXT X
1840 PRINT "RESISTANCES ARE"
1850 R=0
1860 X=X-1
1870 FOR K=1 TO X
1880 PRINT "RESISTANCE OF R",K," IS",N(K)," OHMS"
1890 R=R+1/N(K)
1900 NEXT K
1910 R=1/R
1920 PRINT "TOTAL RESISTANCE IS",R," OHMS"
1930 LINE INPUT "DO YOU WANT TO DO MORE YES OR NO ";Y$
1940 IF Y$ = "YES" OR Y$ = "Y" THEN 1710 ELSE 1700
1950 END